home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.0 / card_14376.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  89 lines
  1. -- card: 14376 from stack: in.0
  2. -- bmap block id: 12274
  3. -- flags: 4000
  4. -- background id: 14090
  5. -- name: Dogear
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=132 top=113 right=248 bottom=369
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 67
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=236 top=265 right=280 bottom=284
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: PageNumber
  34.  
  35.  
  36. -- part 3 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=333 top=257 right=293 bottom=368
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: right dogear
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   if the optionkey is down then
  51.     pass mouseup
  52.   end if
  53.  
  54.   -- this script handles a diagonally divided button, intended to be
  55.   --  a right dogear
  56.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  57.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  58.   put card field pageNumber into tempNumber
  59.   if (x < y) then              -- click is in upper left
  60.     visual scroll left very fast to gray
  61.     visual scroll left very fast
  62.     go this card
  63.     put tempnumber+1 into card field PageNumber
  64.   else
  65.     visual scroll right very fast to gray
  66.     visual scroll right very fast
  67.     go this card
  68.     put tempnumber-1 into card field PageNumber
  69.   end if
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part contents for card part 2
  75. ----- text -----
  76. 5
  77.  
  78. -- part contents for card part 1
  79. ----- text -----
  80. ‚Ä¢¬†From David Dunham's "fido" which has a REAL dog-ear button. The Dog Ear acts like opposed triangle-shaped buttons.  Copy and Paste into your stacks (Delphi:  DDUNHAM; CIS 76074,762; AppleLink D0457).   
  81.  
  82.  
  83. -- part contents for background part 5
  84. ----- text -----
  85. 1
  86.  
  87. -- part contents for background part 12
  88. ----- text -----
  89. Dog Ear